COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	GO:	SETOM	3
C00004 ENDMK
C⊗;
GO:	SETOM	3
	TTCALL	6,3
	SUBI	3,20
	HRRM	3,TICK
LOOPY:	MOVE	7,BYTEPT
	CALL	7,[SIXBIT /SPCWGO/]
PLOOP:	TTCALL	0,6
	CAIE	6,15
	JRST	FIX
	043000,,636367
	CALL	[SIXBIT /RESET/]
	CALL	1,[SIXBIT /EXIT/]
FIX:	MOVEI	5,TAB
	CAIN	6,40
	MOVEI	5,TAN
	CAIN	6,175
	MOVEI	5,TAI
	SETZM	PT
	HRRM	5,P1
	HRRM	5,P2
	SETZM	PT
	JRST	PLOOP

TOCK:	MOVE	1,PT
P2:	MOVE	2,TAB(1)
	ADDI	1,1
	JUMPN	2,OK
	SETZ	1,1
P1:	MOVE	2,TAB
OK:	MOVEM	1,PT
TICK:	734200,,41
	734140,,2
	CALLI	400024

BYTEPT: 400001,,TOCK

A=40 ↔  B=100 ↔  C=200 ↔  D=400 ↔  E=20 ↔  F=1000

PT:	0

TAN:	A ↔ B ↔ A ↔ C ↔ A ↔ B ↔ A ↔ D
	A ↔ B ↔ A ↔ C ↔ A ↔ B ↔ A ↔ E
	A ↔ B ↔ A ↔ C ↔ A ↔ B ↔ A ↔ D
	A ↔ B ↔ A ↔ C ↔ A ↔ B ↔ A ↔ F
	A ↔ B ↔ A ↔ C ↔ A ↔ B ↔ A ↔ D
	A ↔ B ↔ A ↔ C ↔ A ↔ B ↔ A ↔ E
	A ↔ B ↔ A ↔ C ↔ A ↔ B ↔ A ↔ D
	A ↔ B ↔ A ↔ C ↔ A ↔ B ↔ A ↔ A
        0

TAB:	A ↔ A+B ↔ A ↔ A+B+C ↔ A ↔ A+B ↔ A ↔ A+B+C+D
	A ↔ A+B ↔ A ↔ A+B+C ↔ A ↔ A+B ↔ A ↔ A+B+C+D+E
	A ↔ A+B ↔ A ↔ A+B+C ↔ A ↔ A+B ↔ A ↔ A+B+C+D
	A ↔ A+B ↔ A ↔ A+B+C ↔ A ↔ A+B ↔ A ↔ A+B+C+D+E+F
        0

TAI:	A+F ↔ A+B ↔ A+C ↔ A+B ↔ A+D ↔ A+B ↔ A+C ↔ A+B
	A+E ↔ A+B ↔ A+C ↔ A+B ↔ A+D ↔ A+B ↔ A+C ↔ A+B
	A ↔ A+B ↔ A+C ↔ A+B ↔ A+D ↔ A+B ↔ A+C ↔ A+B
	A+E ↔ A+B ↔ A+C ↔ A+B ↔ A+D ↔ A+B ↔ A+C ↔ A+B
        0

	END	GO